;;;; use-bc-data.lisp

(in-package #:bcgreek)

(defmacro use-bc-data (&key greek-letters bc-letters bc-accents bc-misc bc-accent-groups)
  (let ((*greek-letters* greek-letters)
        (*bc-letters* bc-letters)
        (*bc-accents* bc-accents)
        (*bc-misc* bc-misc)
        (*bc-accent-groups* bc-accent-groups))
    (bc-definitions)))




#|
(defmacro use-bc-data (&key greek-letters bc-letters bc-accents bc-misc bc-accent-groups)
  `(setf *greek-letters* ',greek-letters
         *bc-letters* ',bc-letters
         *bc-accents* ',bc-accents
         *bc-misc* ',bc-misc
         *bc-accent-groups* ',bc-accent-groups
         ))
|#
